home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_400 / 422_02 / laptalk / host.scr < prev    next >
Text File  |  1994-03-20  |  1KB  |  50 lines
  1. rem A simple "host" which provides basic remote file access.
  2. rem Optional password may be passed as an argument.
  3.  
  4. config host
  5. :entry ifeq '\1' '' : goto +start
  6. equate C 3
  7. :trypass read A \nPassword?
  8. ifeq '\A' '\1' : goto +start
  9. send Incorrect password!
  10. equate C \C-1
  11. if# \C : goto trypass
  12. send \nToo many attempts\n
  13. print Password failure!
  14. :goodbye send Goodbye!\n
  15. hangup
  16. goto entry
  17. :start print Begin session!
  18. upload ASCII host.msg
  19. :main read A Command (d=Download, u=Upload, f=files, g=goodbye)?
  20. ifeq '\A' 'f' : goto +files
  21. ifeq '\A' 'd' : goto +transfer
  22. ifeq '\A' 'u' : goto +transfer
  23. ifeq '\A' 'g' : goto goodbye
  24. send Incorrect command... Use 'd', 'u' or 'g'\n
  25. goto main
  26. :transfer assign P
  27. read B Protocol (a=ASCII, x=Xmodem, y=Ymodem/1K)?
  28. ifeq '\B' '' : goto main
  29. ifeq '\B' 'a' : assign P ASCII
  30. ifeq '\B' 'x' : assign P XMODEM
  31. ifeq '\B' 'y' : assign P XMODEM/1K
  32. ifeq '\P' '' : goto transfer
  33. read F Filename?
  34. ifeq '\F' '' : goto main
  35. ifeq '\A' 'u' : goto +upload
  36. print \P Download of \F requested
  37. send Transmitting \F using \P\n
  38. upload \P \F
  39. goto main
  40. :upload print \P upload of \F requested
  41. send Ready to receive \F using \P\n
  42. download \P \F
  43. goto main
  44. rem If you don't have an 'D' RAMdisk for temporary files,
  45. rem adjust the following few lines to accomodate your setup.
  46. :files dos dir >D:FILES.LAP
  47. upload ASCII D:FILES.LAP
  48. dos del D:FILES.LAP
  49. goto main
  50.